home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / rexx / fw_macros.lha / Goto_Outline < prev    next >
Encoding:
Text File  |  1995-03-26  |  650 b   |  24 lines
  1. /* ======================================== */
  2. /*  FINAL WRITER AREXX MACRO                */
  3. /*    by Nigel S. Domaingue, 28/1/95        */
  4. /*                                          */
  5. /*  Script to goto Outline Section.         */
  6. /*  $Ver:  Goto_Outline 1.0 (28/1/95)       */
  7. /* ======================================== */
  8.  
  9. /* If the outline page exists, then go to it, */
  10. /* Otherwise, create one and go to it.        */
  11.  
  12. Options Results
  13.  
  14. GoToSection 'Outline'
  15. IF ( RC ~= 0 ) THEN
  16.    ShowMessage 1 0 '"No Outline Page at present." "Create one?" "" "Yes" "No" ""'
  17.    ctp = Result
  18.    IF ( ctp = 1 ) THEN
  19.       Create 'Outline' prompt
  20.    EXIT
  21.  
  22.  
  23.  
  24.